home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / NUMSTR.for < prev    next >
Text File  |  1991-04-23  |  410b  |  25 lines
  1.         SUBROUTINE NUMSTR(NVAL,STRNG)
  2.     IMPLICIT NONE
  3.     INTEGER NVAL,I,J,ICHAR
  4.         CHARACTER*8 BSTRNG
  5.     CHARACTER*1 TSTRNG(8),STRNG(8),BNULL
  6.     EQUIVALENCE (BSTRNG,TSTRNG(1))
  7.     DATA BNULL /0/
  8. C
  9. C
  10.     WRITE(BSTRNG,100) NVAL
  11. 100    FORMAT(I8)
  12. C
  13.     I=1
  14.     J=1
  15. 10    IF(ICHAR(TSTRNG(I)).EQ.32)GO TO 20
  16.     STRNG(J)=TSTRNG(I)
  17.     J=J+1
  18. 20    I=I+1
  19.     IF(I.LE.8) GO TO 10
  20.     DO 30 I = J,8
  21.     STRNG(I)=BNULL
  22. 30    CONTINUE
  23.         RETURN
  24.         END
  25.